home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
pctchnqs
/
1991
/
number1
/
blinktst.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-09-24
|
839b
|
28 lines
PROGRAM BlinkTst;
{===============================================================
BLINKTST.PAS - Demonstrates the effect of the EGA Blink Bit,
using the "I_PREFER" device (PREFERS.SYS).
===============================================================}
USES Dos,Crt;
CONST
Toggle : Char = 'b'; {I_PREFER message to toggle blink bit}
VAR
PF : Text; {Our Preferences device is a "text" type}
Ch : Char;
BEGIN
ClrScr;
Assign(PF,'I_PREFER'); {Open the preferences "device"}
ReWrite(PF);
TextAttr := $CF; {Bold White on Red}
WriteLn
('Press [Esc] to quit; any other key to toggle the blink bit.');
REPEAT
Ch := ReadKey;
Write(PF,Toggle); {Command device to toggle blink bit}
UNTIL (Ch = #27);
Close(PF);
END.